* Required macros: 'ratio';

filename sugar url 'http://webpages.uidaho.edu/~renaes/Data/sugarcane.csv';

data cane;
infile sugar firstobs=2 dlm=',';
input State $ county$ acre1999 prod1999 acre1997 prod1997;
run;

proc print data=cane;
run;

* if data runs through origin, ratio is usually better than SRS;
proc sgplot data=cane;
scatter x=acre1997 y=acre1999;
run;

%ratio(sample=cane,npop=32,response=acre1999,param=ratio,x=acre1997,mu_x=27752)
%ratio(sample=cane,npop=32,response=acre1999,param=mean,x=acre1997,mu_x=27752)

%ratio(sample=cane,npop=32,response=acre1999,param=total,x=acre1997,tau_x=27752*32)